home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / REMORLOC.DEM < prev    next >
Text File  |  1994-07-02  |  672b  |  35 lines
  1. program RemOrLocSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    DrvStatus : byte;
  7.  
  8.    DrvLetter : char;
  9.  
  10. begin
  11.   ErrFlag := false;
  12.   Color( 7, 0 );
  13.   clrscr;
  14.  
  15.   write( 'Select drive to check ( A-Z ) [ :]');
  16.   gotoxy( wherex - 3, wherey );
  17.   DrvLetter := upcase( readkey );
  18.   writeln( DrvLetter );
  19.  
  20.   DrvStatus := RemOrLoc( DrvLetter );   { Call RemOrLoc function }
  21.  
  22.   if ( ErrFlag ) then
  23.     begin
  24.       writeln( #7 );
  25.       writeln( ShowError( GetErrCode ) );
  26.     end
  27.   else
  28.     case ( DrvStatus ) of
  29.       0 : writeln( #13#10, 'Drive is a local drive.' );
  30.  
  31.       1 : writeln( #13#10, 'Drive is a remote (network) dirve.' );
  32.     end;
  33.  
  34.   Getenter;
  35. end.